home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / maestro / source / timeline / pause.g < prev    next >
Encoding:
Text File  |  1993-06-15  |  14.1 KB  |  509 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :popup-window
  5.     :name                   PausePopup
  6.     :owner                  nil
  7.     :width                  263
  8.     :height                 338
  9.     :background-color       ""
  10.     :foreground-color       ""
  11.     :label                  "Pause Markers Info Window"
  12.     :label-type             :string
  13.     :initial-state          :invisible
  14.     :show-footer            t
  15.     :resizable              nil
  16.     :pinned                 nil
  17.     :done-handler           nil
  18.     :event-handler          nil
  19.     :user-data              ()
  20.     :actions                ()
  21. )
  22. (
  23.     :type                   :control-area
  24.     :name                   controls1
  25.     :owner                  PausePopup
  26.     :help                   ""
  27.     :x                      0
  28.     :y                      0
  29.     :width                  263
  30.     :height                 338
  31.     :background-color       "Light Gray"
  32.     :foreground-color       ""
  33.     :initial-state          :visible
  34.     :show-border            nil
  35.     :menu                   nil
  36.     :event-handler          nil
  37.     :user-data              ()
  38.     :actions                ()
  39. )
  40. (
  41.     :type                   :message
  42.     :name                   TimeLineMsg
  43.     :owner                  controls1
  44.     :help                   ""
  45.     :x                      16
  46.     :y                      8
  47.     :width                  120
  48.     :height                 13
  49.     :foreground-color       "Black"
  50.     :label                  "TimeLine Editor : "
  51.     :label-type             :string
  52.     :label-bold             t
  53.     :initial-state          :active
  54.     :event-handler          nil
  55.     :user-data              ()
  56.     :actions                ()
  57. )
  58. (
  59.     :type                   :message
  60.     :name                   TimeLineDocMsg
  61.     :owner                  controls1
  62.     :help                   ""
  63.     :x                      144
  64.     :y                      8
  65.     :width                  61
  66.     :height                 13
  67.     :foreground-color       "Black"
  68.     :label                  "docname"
  69.     :label-type             :string
  70.     :label-bold             t
  71.     :initial-state          :active
  72.     :event-handler          nil
  73.     :user-data              ()
  74.     :actions                ()
  75. )
  76. (
  77.     :type                   :message
  78.     :name                   NumberPausesMsg
  79.     :owner                  controls1
  80.     :help                   ""
  81.     :x                      20
  82.     :y                      28
  83.     :width                  111
  84.     :height                 13
  85.     :foreground-color       "Black"
  86.     :label                  "# of pauses       :"
  87.     :label-type             :string
  88.     :label-bold             t
  89.     :initial-state          :active
  90.     :event-handler          nil
  91.     :user-data              ()
  92.     :actions                ()
  93. )
  94. (
  95.     :type                   :message
  96.     :name                   PauseCountMsg
  97.     :owner                  controls1
  98.     :help                   ""
  99.     :x                      144
  100.     :y                      28
  101.     :width                  8
  102.     :height                 13
  103.     :foreground-color       "Black"
  104.     :label                  "0"
  105.     :label-type             :string
  106.     :label-bold             t
  107.     :initial-state          :active
  108.     :event-handler          nil
  109.     :user-data              ()
  110.     :actions                ()
  111. )
  112. (
  113.     :type                   :message
  114.     :name                   PauseSelectMsg
  115.     :owner                  controls1
  116.     :help                   ""
  117.     :x                      20
  118.     :y                      48
  119.     :width                  110
  120.     :height                 13
  121.     :foreground-color       "Black"
  122.     :label                  "Selected pause :"
  123.     :label-type             :string
  124.     :label-bold             t
  125.     :initial-state          :active
  126.     :event-handler          nil
  127.     :user-data              ()
  128.     :actions                ()
  129. )
  130. (
  131.     :type                   :message
  132.     :name                   PauseSelectValueMsg
  133.     :owner                  controls1
  134.     :help                   ""
  135.     :x                      144
  136.     :y                      48
  137.     :width                  8
  138.     :height                 13
  139.     :foreground-color       "Black"
  140.     :label                  "0"
  141.     :label-type             :string
  142.     :label-bold             t
  143.     :initial-state          :active
  144.     :event-handler          nil
  145.     :user-data              ()
  146.     :actions                ()
  147. )
  148. (
  149.     :type                   :message
  150.     :name                   PauseListHeaderMsg
  151.     :owner                  controls1
  152.     :help                   ""
  153.     :x                      48
  154.     :y                      64
  155.     :width                  147
  156.     :height                 13
  157.     :foreground-color       "Black"
  158.     :label                  "Pause #                 Time"
  159.     :label-type             :string
  160.     :label-bold             nil
  161.     :initial-state          :active
  162.     :event-handler          nil
  163.     :user-data              ()
  164.     :actions                ()
  165. )
  166. (
  167.     :type                   :scrolling-list
  168.     :name                   PauseList
  169.     :owner                  controls1
  170.     :help                   ""
  171.     :x                      20
  172.     :y                      84
  173.     :width                  200
  174.     :height                 92
  175.     :value-x                20
  176.     :value-y                84
  177.     :rows                   4
  178.     :foreground-color       "Black"
  179.     :label                  ""
  180.     :title                  ""
  181.     :label-type             :string
  182.     :layout-type            :horizontal
  183.     :read-only              t
  184.     :multiple-selections    nil
  185.     :selection-required     nil
  186.     :initial-state          :active
  187.     :droppable              nil
  188.     :default-drop-site      nil
  189.     :menu                   nil
  190.     :notify-handler         PauseListNotify
  191.     :event-handler          nil
  192.     :initial-list-values    ()
  193.     :initial-list-glyphs    ()
  194.     :initial-selections     ()
  195.     :user-data              ()
  196.     :actions                (
  197.         (
  198.         :from                   (PausePopup PauseList)
  199.         :when                   (Notify )
  200.         :to                     (PausePopup PauseList)
  201.         :function_type          CallFunction
  202.         :arg_type               ()
  203.         :action                 (PauseListNotify)
  204.         )
  205.     )
  206. )
  207. (
  208.     :type                   :message
  209.     :name                   InsertPauseMsg
  210.     :owner                  controls1
  211.     :help                   ""
  212.     :x                      20
  213.     :y                      184
  214.     :width                  110
  215.     :height                 13
  216.     :foreground-color       "Black"
  217.     :label                  "Insert Pause at :"
  218.     :label-type             :string
  219.     :label-bold             t
  220.     :initial-state          :active
  221.     :event-handler          nil
  222.     :user-data              ()
  223.     :actions                ()
  224. )
  225. (
  226.     :type                   :setting
  227.     :name                   PauseChoice
  228.     :owner                  controls1
  229.     :help                   ""
  230.     :x                      8
  231.     :y                      200
  232.     :width                  128
  233.     :height                 52
  234.     :value-x                8
  235.     :value-y                200
  236.     :rows                   0
  237.     :columns                1
  238.     :layout-type            :horizontal
  239.     :foreground-color       ""
  240.     :setting-type           :check
  241.     :selection-required     t
  242.     :label                  ""
  243.     :label-type             :string
  244.     :notify-handler         nil
  245.     :event-handler          nil
  246.     :choices                ("Insertion point " "Specified time" )
  247.     :choice-label-types     (:string :string )
  248.     :choice-colors          ("Black" "Black" )
  249.     :initial-selections     (nil nil )
  250.     :initial-state          :active
  251.     :user-data              ()
  252.     :actions                ()
  253. )
  254. (
  255.     :type                   :text-field
  256.     :name                   IPMinText
  257.     :owner                  controls1
  258.     :help                   ""
  259.     :x                      136
  260.     :y                      204
  261.     :width                  36
  262.     :height                 15
  263.     :value-x                136
  264.     :value-y                204
  265.     :value-length           2
  266.     :stored-length          4
  267.     :rows                   3
  268.     :foreground-color       "Black"
  269.     :text-type              :alphanumeric
  270.     :label                  ""
  271.     :label-type             :string
  272.     :layout-type            :horizontal
  273.     :value-underlined       t
  274.     :initial-value          ""
  275.     :initial-state          :active
  276.     :read-only              t
  277.     :notify-handler         nil
  278.     :event-handler          nil
  279.     :user-data              ()
  280.     :actions                ()
  281. )
  282. (
  283.     :type                   :text-field
  284.     :name                   IPSecText
  285.     :owner                  controls1
  286.     :help                   ""
  287.     :x                      192
  288.     :y                      204
  289.     :width                  36
  290.     :height                 15
  291.     :value-x                192
  292.     :value-y                204
  293.     :value-length           2
  294.     :stored-length          2
  295.     :rows                   3
  296.     :foreground-color       "Black"
  297.     :text-type              :alphanumeric
  298.     :label                  ""
  299.     :label-type             :string
  300.     :layout-type            :horizontal
  301.     :value-underlined       t
  302.     :initial-value          ""
  303.     :initial-state          :active
  304.     :read-only              t
  305.     :notify-handler         nil
  306.     :event-handler          nil
  307.     :user-data              ()
  308.     :actions                ()
  309. )
  310. (
  311.     :type                   :message
  312.     :name                   IPColon
  313.     :owner                  controls1
  314.     :help                   ""
  315.     :x                      192
  316.     :y                      204
  317.     :width                  3
  318.     :height                 13
  319.     :foreground-color       "Black"
  320.     :label                  ":"
  321.     :label-type             :string
  322.     :label-bold             t
  323.     :initial-state          :active
  324.     :event-handler          nil
  325.     :user-data              ()
  326.     :actions                ()
  327. )
  328. (
  329.     :type                   :text-field
  330.     :name                   SPMinText
  331.     :owner                  controls1
  332.     :help                   ""
  333.     :x                      140
  334.     :y                      232
  335.     :width                  116
  336.     :height                 15
  337.     :value-x                185
  338.     :value-y                232
  339.     :value-length           2
  340.     :stored-length          4
  341.     :rows                   3
  342.     :foreground-color       "Black"
  343.     :text-type              :numeric
  344.     :label                  "Min : "
  345.     :label-type             :string
  346.     :layout-type            :horizontal
  347.     :value-underlined       t
  348.     :max-value              9999
  349.     :min-value              0
  350.     :initial-value          0
  351.     :initial-state          :active
  352.     :read-only              nil
  353.     :notify-handler         nil
  354.     :event-handler          nil
  355.     :user-data              ()
  356.     :actions                ()
  357. )
  358. (
  359.     :type                   :text-field
  360.     :name                   SPSecText
  361.     :owner                  controls1
  362.     :help                   ""
  363.     :x                      144
  364.     :y                      256
  365.     :width                  113
  366.     :height                 15
  367.     :value-x                186
  368.     :value-y                256
  369.     :value-length           2
  370.     :stored-length          2
  371.     :rows                   3
  372.     :foreground-color       "Black"
  373.     :text-type              :numeric
  374.     :label                  "Sec : "
  375.     :label-type             :string
  376.     :layout-type            :horizontal
  377.     :value-underlined       t
  378.     :max-value              59
  379.     :min-value              0
  380.     :initial-value          0
  381.     :initial-state          :active
  382.     :read-only              nil
  383.     :notify-handler         nil
  384.     :event-handler          nil
  385.     :user-data              ()
  386.     :actions                ()
  387. )
  388. (
  389.     :type                   :button
  390.     :name                   InsertPauseButton
  391.     :owner                  controls1
  392.     :help                   ""
  393.     :x                      48
  394.     :y                      280
  395.     :width                  53
  396.     :height                 19
  397.     :constant-width         nil
  398.     :button-type            :normal
  399.     :foreground-color       "Black"
  400.     :label                  "Insert"
  401.     :label-type             :string
  402.     :initial-state          :active
  403.     :menu                   nil
  404.     :notify-handler         InsertPause
  405.     :event-handler          nil
  406.     :user-data              ()
  407.     :actions                (
  408.         (
  409.         :from                   (PausePopup InsertPauseButton)
  410.         :when                   (Notify )
  411.         :to                     (PausePopup InsertPauseButton)
  412.         :function_type          CallFunction
  413.         :arg_type               ()
  414.         :action                 (InsertPause)
  415.         )
  416.     )
  417. )
  418. (
  419.     :type                   :button
  420.     :name                   DeletePauseButton
  421.     :owner                  controls1
  422.     :help                   ""
  423.     :x                      156
  424.     :y                      280
  425.     :width                  57
  426.     :height                 19
  427.     :constant-width         nil
  428.     :button-type            :normal
  429.     :foreground-color       "Black"
  430.     :label                  "Delete"
  431.     :label-type             :string
  432.     :initial-state          :active
  433.     :menu                   nil
  434.     :notify-handler         DeletePause
  435.     :event-handler          nil
  436.     :user-data              ()
  437.     :actions                (
  438.         (
  439.         :from                   (PausePopup DeletePauseButton)
  440.         :when                   (Notify )
  441.         :to                     (PausePopup DeletePauseButton)
  442.         :function_type          CallFunction
  443.         :arg_type               ()
  444.         :action                 (DeletePause)
  445.         )
  446.     )
  447. )
  448. (
  449.     :type                   :button
  450.     :name                   ClearAllPauseButton
  451.     :owner                  controls1
  452.     :help                   ""
  453.     :x                      44
  454.     :y                      308
  455.     :width                  70
  456.     :height                 19
  457.     :constant-width         nil
  458.     :button-type            :normal
  459.     :foreground-color       "Black"
  460.     :label                  "Clear All"
  461.     :label-type             :string
  462.     :initial-state          :active
  463.     :menu                   nil
  464.     :notify-handler         ClearAllPause
  465.     :event-handler          nil
  466.     :user-data              ()
  467.     :actions                (
  468.         (
  469.         :from                   (PausePopup ClearAllPauseButton)
  470.         :when                   (Notify )
  471.         :to                     (PausePopup ClearAllPauseButton)
  472.         :function_type          CallFunction
  473.         :arg_type               ()
  474.         :action                 (ClearAllPause)
  475.         )
  476.     )
  477. )
  478. (
  479.     :type                   :button
  480.     :name                   PauseDoneProc
  481.     :owner                  controls1
  482.     :help                   ""
  483.     :x                      160
  484.     :y                      308
  485.     :width                  49
  486.     :height                 19
  487.     :constant-width         nil
  488.     :button-type            :normal
  489.     :foreground-color       "Black"
  490.     :label                  "Done"
  491.     :label-type             :string
  492.     :initial-state          :active
  493.     :menu                   nil
  494.     :notify-handler         ClosePausePopup
  495.     :event-handler          nil
  496.     :user-data              ()
  497.     :actions                (
  498.         (
  499.         :from                   (PausePopup PauseDoneProc)
  500.         :when                   (Notify )
  501.         :to                     (PausePopup PauseDoneProc)
  502.         :function_type          CallFunction
  503.         :arg_type               ()
  504.         :action                 (ClosePausePopup)
  505.         )
  506.     )
  507. )
  508. )
  509.